home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 May / 1984-05.d64 / cass beeper_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  559b  |  19 lines
  1. 5 print chr$(147)"   cassette beeper":print
  2. 10 em=peek(56)*256+peek(55)-60
  3. 15 pt=em:gosub100
  4. 20 poke51,lb:poke55,lb
  5. 25 poke52,hb:poke56,hb
  6. 30 print:print"sys "em:print"(to reset pointers)"
  7. 35 pt=pt+21
  8. 40 forx=1to7step2:gosub100:b(x)=lb:b(x+1)=hb
  9. 45 pt=pt+3:next x
  10. 50 forx=emtoem+57
  11. 55 readn:ifn<0thenn=b(n*-1)
  12. 60 pokex,n:next x:print:print
  13. 65 sys em:sysb(3)+b(4)*256:new
  14. 75 data 169,-1,141,48,3,169,-2,141,49,3,169,-5,141,50,3,169,-6
  15. 80 data 141,51,3,96,32,73,245,76,-7,-8,32,133,246,8,72,169,15
  16. 85 data 141,14,144,169,240,141,12,144,165,162,105,250,197,162
  17. 90 data 48,252,169,0,141,12,144,104,40,96
  18. 100 hb=int(pt/256):lb=pt - hb*256:return
  19.